Loadstar 144/144side1.d64/b.ball clock

Commodore BASIC | 1995-01-01 | 1.7 KB | 56 lines

50 poke56,56:clr:dv=peek(186):ifdv<8thendv=8
52 print"":poke53280,0:poke53281,0:gosub60000
60 sys57812"ball font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
104 n2=100:n1=25:w1=129:w2=128:ad=9:sr=129
106 sp$="              ":q=rnd(-ti):ff=1
110 dima(40),b(62),p$(68),q$(68),r$(68),s$(68)
114 rem read and store ball movements
116 fori=1to40:reada(i):next:fori=1to33:readb(i):next
118 fori=1to68:readp$(i),q$(i),r$(i),s$(i):next
120 poke53280,15:poke53281,10:poke646,1
122 poke53272,30
130 print"to reset clock while running"
140 printtab(8);"press any key"
150 printtab(5);"to set beginning time enter hhmm"
155 printtab(5)"to exit enter the word exit"
160 p1=33:p2=11:ln=4:gosub8000:gosub1000:gosub400:goto860
170 ifright$(ti$,2)>"57"then230
180 geta$:ifa$<>""then120
182 fori=55296to55334step2:pokei,6:next
184 fori=55296to55334step2:pokei,1:next
186 fori=56254to56296step2:pokei,6:next
188 fori=56254to56296step2:pokei,1:next
190 goto170
220 rem start ball movement
230 forcl=54272to54295:pokecl,0:next:poke54296,15
235 f2=5:forx=1to40:pokea(x),81
240 ifx>22thenpokea(x-1),32
250 ifx>1andx<24thenpokea(x-1),99:gosub2200
260 ifx>2thenpokea(x-2),32
262 ifx=24thenpoke54276,0
265 ifx>1andx<24thenf2=f2+1
270 poke1925,81:next
280 fori=1034to1045:pokei,81:next
299 rem now do minutes
300 l=a(40)
310 ifpeek(l-1)=81then500
320 l=l-1:pokel+1,32:pokel,81:ifpeek(l-1)=81then170
330 ifl=a(40)-4then170
340 gosub2000:goto320
399 rem draw clock
400 print""tab(12)" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} "
410 print"  {CBM-D} 1234       "
420 print" 1122334455     "
430 print"50505050505    {SHIFT-POUND}"
440 print"         111     "
450 print"123456789012    {SHIFT-POUND}"
460 printtab(17)"{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}"
470 print"       QQQQQQQQQQQQQQQ"
475 p1=28:p2=1:gosub8260:print"timeLY"
480 p1=25:p2=3:gosub8260:print"FILL OSO FEE"
482 fori=1024to1063:pokei,81:next:fori=2023to1984step-1:NG>ACTIV
12092 STRONG></TD></TR></TABLE></TD></TR></TABLE></DIV></DIV><D=

IV ID=3d"mOREiTEMfROMsELLER"><TABLE STYLE=3d"BORDER:1PX SOLID #C1E0FF" CELL=

PADDING=3d"1" CELLSPACING=3d"3" WIDTH=3d"100%"><TR STYLE=3d"BACKGROUND-COLO=

R:#C1E0FF"><TD STYLE=3d"FOG